home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / utility / 95 / pascal / gemdos.typ < prev    next >
Encoding:
Text File  |  1987-01-15  |  758 b   |  22 lines
  1. (* GEMDOS.TYP *)
  2. (* Some constant and types we need in GEMDOS file, include this file
  3.    under TYPE declaration before calling GEMDOS.PAS
  4. *)
  5.  
  6.   cstring  = PACKED ARRAY[1..80] OF CHAR ;
  7.   edit_str = STRING[81] ;
  8.   word     = INTEGER ;                     (* C convention *)
  9.   long     = Long_INTEGER ;                (* C convention *)
  10.   buf_type = PACKED ARRAY[1..80] OF CHAR ; (* define your own type ! *)
  11.   DTA = PACKED RECORD
  12.           reserved  : PACKED ARRAY[0..20] OF BYTE ;
  13.           attribute : BYTE ;
  14.           time_stamp : WORD ;
  15.           date_stamp : WORD ;
  16.           file_size  : LONG ;
  17.           file_name  : PACKED ARRAY[1..14] OF CHAR ;
  18.         END ;
  19.   drive_array = PACKED ARRAY[1..4] OF WORD ;
  20.  
  21. (* END of GEMDOS.TYP *)
  22.